rawdata <- c(55,56,98,100,15,12,33,45,32,67,82,19,25)

#Compute Max
max(rawdata)

#Compute Min
max(rawdata)

#Summary
summary(rawdata)

#Mean
mean(rawdata)




